#!/usr/bin/perl

use XML::Simple;
use CGI qw(:standard);

use strict;
use warnings;
#use Data::Dumper;

my $partido = param('p');
my $resultado = param('r');

print header(-type => 'application/xhtml+xml');

my $xml = XMLin("../quiniela.xml", ForceArray => ['partido']);

#print Dumper($xml->{partido}->[0]->{resultado});

if (defined $partido && defined $resultado) {
  $xml->{partido}->[$partido]->{resultado} = "$resultado";
  XMLout($xml, RootName=>'quiniela', NoAttr=>1, XMLDecl =>'<?xml version="1.0"?>', OutputFile =>'../quiniela.xml');
  print XMLout($xml, RootName=>'quiniela', NoAttr=>1, XMLDecl =>'<?xml version="1.0"?>');
} else {
  print XMLout($xml, RootName=>'quiniela', NoAttr=>1, XMLDecl =>'<?xml version="1.0"?>');
}
  